home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Tools - Objects / MacApp / MacApp CD Release / MacApp 2.0.1 (Many Libraries) / Libraries / PrivateInterfaces / UMemory.p < prev    next >
Encoding:
Text File  |  1990-10-25  |  959 b   |  42 lines  |  [TEXT/MPS ]
  1. {[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/1$,n+]}
  2. { UMemory.p }
  3. { Copyright © 1984-1990  Apple Computer, Inc.  All rights reserved. }
  4.  
  5. {$IFC UNDEFINED UsingIncludes}
  6. {$SETC UsingIncludes := FALSE}
  7. {$ENDC}
  8.  
  9. UNIT UMemory;
  10.  
  11.     INTERFACE
  12.  
  13.         USES
  14. {$SETC __UMemory__ := TRUE}
  15.             { • MacApp }
  16.             {$U $$Shell(MAPInterfaces)UMacAppUtilities} UMacAppUtilities,
  17.             {$U $$Shell(MAPInterfaces)UFailure} UFailure,
  18.  
  19.             { • Required for this unit's interface }
  20.             Memory,
  21.  
  22.             { • Implementation use }
  23.             {$U $$Shell(MAPInterfaces)UPatch} UPatch,
  24.             {$U $$Shell(MAPInterfaces)ULoMem} ULoMem,
  25.             {$U $$Shell(MAPInterfaces)UDebug} UDebug,
  26.  
  27.             ToolUtils, Resources, Packages, Traps, Errors;
  28.  
  29. {$SETC __UMemory__ := FALSE}
  30.             { • Include the public interface }
  31.             {$SETC _UMemoryIncludes := UsingIncludes}
  32.             {$SETC UsingIncludes := TRUE}
  33.             {$I+}
  34.             {$I $$Shell(MAPInterfaces)UMemory.p}
  35.             {$SETC UsingIncludes := _UMemoryIncludes}
  36.  
  37.     IMPLEMENTATION
  38.  
  39.         {$I UMemory.inc1.p}
  40.  
  41. END.
  42.